说明

Application 对象包括：

• 应用程序范围内的设置和选项（例如，当前打印机的名称）。
• 用于返回顶层对象的属性，例如 ActivePresentation 和 Windows。

编写要在WPP 中运行的代码时，Application 对象的下列属性可以在没有对象限定符的情况下使用：ActivePresentation、ActiveWindow、AddIns、Presentations、SlideShowWindows 和 Windows。例如，可以编写 Application.ActiveWindow.Height = 200 来代替 ActiveWindow.Height = 200。

示例

使用 Application 属性可返回 Application 对象。以下示例返回程序文件的路径。

Dim MyPath As String
MyPath = Application.Path

以下示例在其他应用程序中创建一个WPP Application 对象，并启动WPP（如果尚未运行），然后打开一个名为“Ex_a2a.ppt”的现有演示文稿。

Set ppt = New Kwpp.Application
ppt.Visible = True
ppt.Presentations.Open "c:\My Documents\ex_a2a.ppt"